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14-Sep-1984 BASRTL.SRCJBASMARGIN. 8 2:1 
$ 1 001 MODULE BASSMARGIN ( ! 
3 § Oe sOENT = '1-0013' ! File: BASMARGIN.B32 EDIT:PL10013 
4 = 
; 4 004 BEGIN 
; 5 0005 1! 
4 § Bone : PPPS STE STSCI TTI TIT TIT III CTI ICC LITT T TT TITiTTITiTiTiTiTititititi 
3 '® © 
; 8 4 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
; 29 0009 1 i DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
; 1? Bi : be ALL RIGHTS RESERVED. * 
3 i‘ we 
3 \§ borg 1 !« re SOF TWARE fs FURNISHED UNDER A LICENSE AND MAY BE USED AND oe ace ® 
. 9 015 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICEN NSE AND WITH THE * 
H 14 0014 1 I! INCLUSION OF THE ABOVE tp NOTICE. THIS SOFTWARE OR ANY OTHER * 
; 0015 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
Fs 16 Bag 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
; i SEA : ” TRANSFERRED. x 
3 ‘ft ® 
; 19 0019 1 !«* pow | INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; 20 0020 1 !«* SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ® 
; $) poet : - CORPORATION. * 
4 '® ® 
cs ae 6038 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
3 24 0024 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
cae 0025 1 !«* * 
; & 0026 1 !«* ® 
3 e7 O27 1 eee eee e eee eee ERR AREA ERATE AERA REAR E REE 
; a 0028 1! 
; $3 0029 1 
3 0 0030 1 !+4+ : 
. - i 0031 1 ! FACILITY: BASIC=-PLUS-2 Miscellaneous 1/0 
ae 0032 1! 
a. 0033 1 ! ABSTRACT: 
; 0034 1! 
.- = 0035 1! This module containe the BASIC MARGIN function, which returns 
; - 0036 1! the margin of the file open on a channel. The margin setting 
3 i oth ! can also be changed. 
; 39 0039 1 ! ENVIRONMENT: VAX-11 User Mode 
: 40 0040 1! 
: re Opes ' : AUTHOR: John Sauter, CREATION DATE: 08-MAY-1979 
o.oo 0043 1 ! MODIFIED BY: 
: 6446 0044 1! 
; «645 0045 1 ! 1-001 - Original. 
; 46 0046 1 ! 1-002 = Allow MARZ on cheomet 0 before it is $ open. JBS 23-MAY-1979 
; (47 0047 1 ! 1-003 - Make the margin 16 bits. JBS 30-MA 
5; 6 0048 1 ! 1-004 - If the new margin is larger than the oer size, (on unit 0 
; («49 0049 1! only) increase the record size. 
; 20 Opes ' 1-005 - Uegete Oe le and gq Raesu_ USZ Pe I ey the record 
3 ! ze 4- 
; 26 Opes 1 ! 1-006 - Add SASSNOMARGIN, att: 13-JU _e 
a 3 0053 1! 1-007 - pes up ISBSA YSER. FP, JBS 25-JUL-1979 
3; 6564 0054 1 ! 1-008 - Correct a godin ng error L- ane egatl to LIBSFREE_VM. 
» 3 0055 1! QAR N11-0 JBS 
; 9938 1 ! 1-009 = When relocating LUB f a eo forget LUBSA_UBF. JBS 29-NOV-1979 
; «57 0057 1 ! 1-0010- BASSNOMARGIN needs to do a BASS$$CB_POP before return. FM 9-FEB-81 


Sn 


moe If Sep 99:38:72 YBASaTu °SReSeasmancin.0S2; 1 Peer o4§ | 
! j- ~$813- MARGIN should operate only on terminal format files. PLL 12-May-81 
: 1 Wiese sho d als operate only on terminal format 
' 
le 


i 1-0013- {id88tor Should be declared EXTERNAL. PLL 20-Nov-81 
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BASSMARGIN 

1-0013 

; 065 
3 g 06 
; Oo 358 
: 3 0089 
ae a $090 
(RBA 
s ie 
s 5 BRee 
; 76 0075 
ae sy 0504 
oe 0505 
;: 0506 
; 0507 
a. oe 0508 
s Ge 0509 
3; 83 0510 
c oe 0511 
c. Op o3i¢ 
3; 051 
. or 0514 
; 88 0515 
; 689 0516 
:; 90 0517 
; Wh 0657 
s | 6982 0658 
. oF 0826 
; 694 44 
; «69S 0922 
; © 0923 
; 697 0924 
; | «698 0925 
; 99 0926 
3; 100 0927 
: 101 0928 
: 102 0929 
: 103 0930 
> 104 0931 
; 105 093 
: 106 093 
3: 107 0934 
: 108 0935 
3; 109 0936 
; 110 0937 
2 1711 0938 
3 ii¢ 0939 
: 11 0940 
3; 61146 0941 
s 15 094 
: 116 094 
- Sir 0944 
: 118 0945 
; 119 0946 
: 120 0947 
: 121 0948 
s 122 0949 
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SWITCHES: 


rete Blis 
8 


SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 


; LINKAGES: 


REQUIRE ‘RTLIN:OTSLNK'; 
' 


! TABLE OF CONTENTS: 


FORWARD ROUTINE 
ASSMARGIN 
BASSNOMARGIN : NOVALUE; 


INCLUDE FILES: 


REQUIRE ‘RTLML:OTSLUB’; 
REQUIRE ‘RTLML:OTSISB'; 
REQUIRE ‘RTLIN:RTLPSECT'; 
LIBRARY "RTLSTARLE'; 


| MACROS: 
NONE 
EQUATED SYMBOLS: 
: NONE 
: PSECTS: 
DECLARE _PSECTS (BAS); 
OWN STORAGE : 
: NONE 
: EXTERNAL REFERENCES: 
EXTERNAL ROUTINE 
LIBSSTOP : NOVALUE, 
LIBSFREE VM, 


LIBSGET_0M 
BASS$CB~PUSH : 


JSB_CB_PUSH NOVALUE, 


Define Linkages 


Return right margin 
Turn off right margin 


Get LUB definitions 

Get ISB definitions 

Macros for defining psects 
System symbols 


Declare psects for BASS facility 


Signal fatal error 
Deallocate storage 
sitecate sterege 

Load register (CB 


Saas etn as 
ASRTL.SRC JBASMARGIN.B32;1 


ro 
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ASSMARGIN 1b-$e -1984 255 AX-11 4 -32 vV4.0-7 Page 4 
ett ye=8ee=13ke 99:88:92 HANSAL OsheSaRewkRe gn oS2.1 9° 123 
: 123 929 1 BASS$$CB_POP : JSB_CB_POP NOVALUE, ' Done with register CCB 

; 1246 9 1 BASSSSTOP_ 10 : NOVALOE, ! Signal fatal I/0 error 

s 125 326 1 BA titer NOV AL UE, ' Signal fatal error 

: : S 8327 } BASSSOPEN_ ZERO : CALL_CCB NOVALUE; ' Open channel zero. 

; 12 0955 1 !+4 : 

ss 8328 1 ! The following are the error codes used in this module. 

; i> 0957 1 !I- 

e 33) 0958 1 

; 1 ; 0959 1 EXTERNAL LITERAL 

a | 0960 1 BASSK_ILLIO_CHA : UNSIGNED (8), ; ptaegat 1/0 channel 

3 13 0961 1 BASSK_10 CHANOT : UNSIGNED (8), ! 1/0 Channel not open 

s 6 955 0962 1 BASSK_ILCOPE : UNSIGNED (8), ! Illegal operation 

; 136 09635 1 BASS$K~MAXMEMEXC : UNSIGNED (8), ! Maximum memory exceeded 

3 4 peed ' OTS$_FATINTERR; ! Fatal internal error 
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| BASSMARGIN 16-Sep-1984 00:42:55 AX-11 Bliss-32 V4.0-74 Page 
71-0013 132300- 1384 M8 214 BASRTL. RCIBASMARGIN.B es1 : 

; 140 oe 1 GLOBAL ROUTINE BASSMARGIN ( ! Return right margin 
(3) (141 967 1 . ! Channel whose margin to return 
13 14g 0968 1 NEW_MARGIN ! Optional new setting 
13 14 0969 1 )= 

; 144 0970 1 

> 1465 0971 1 !44 

; 146 bar§ 1 ! FUNCTIONAL DESCRIPTION: 

3; 1467 0975 1! i 

> 148 0974 1! Returns the right margin of the specified channel. Optionally, 

3 6149 0975 1! a new right margin can be specified. If the right margin of the 

; 150 0976 1! user's terminal (channel 0) is being extended, this routine will 

3 33) bak 3 reallocate the channel buffer if necessary so that there is 

3 126 gare : enough room for a Line out to the margin. 

; 154 0980 1 ! FORMAL PARAMETERS: 

3 199 0981 1! . 

; 156 0982 1! CHAN.rl.v The channel whose —— to return. 

“bee id 0983 1! NEW_MARGIN.rl.v Optionally, the new right margin. 0 means 

> 158 0984 1! return to default. 

; I 0985 1! 

; 160 0986 1 ! IMPLICIT INPUTS: 

; «161 0987 1! : : 

; 162 0988 1! LUB$SW_R_MARGIN The channel's current right margin 

; 165 0989 1! LUB$W_D MARGIN The channel's default right margin 

3 ise Bees : LUBSW_RBUF_SIZE The Length of the record buffer. 

; 166 0992 1 ! IMPLICIT OUTPUTS: 

s yor 0993 1! 

> 168 0994 1! LUBSW_R_MARGIN The channel's current right margin 

; 169 0995 1! LUBSW_RBUF_SIZE The length of the record buffer 

: 170 0996 1! LUBSA_UBF The address of the record buffer 

2 are 0997 1! Various other fields in the LUB and RAB that point into the 

3: 172 0998 1! record buffer, which get relocated. 

3; 75 0999 1! 

; 174 10900 1 ! ROUTINE VALUE: 

3: 175 1001 1! 

s 17 1002 1! The right margin of the channel, before any changes made 

s 77 1005 1! by this routine. 

; 4178 1004 1! 

: 179 1005 1 ! SIDE EFFECTS: 

: 180 1006 1! ; : 

s 18% 1007 1! May change the right margin of this channel. 

: 182 1008 1! If channel © is not open, opens it. S : 

: 183 1009 1! BAS$$CB_PUSH will signal if the channel number is invalid. — 

; 184 1010 1! If it must expand the channel buffer, will disable ASTs while 

3; 185 1011 1! doing so, and relocate some LUB and RAB fields. 

; 186 3 4 2% 

3. «(187 1013 1 !-- 

3; «4188 1014 1 

3; 189 1015 BEGIN 

: 190 1918 

3 «619 101 BUILTIN 

: 136 1018 FP; 

:; 19 1019 

3 194 1020 GLOBAL REGISTER 

, 39 1021 CCB = K_CCB_REG : REF BLOCK C, BYTE); 

> 196 1022 
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BUILTIN 
ACTUALCOUNT ; 


LOCAL 
RIGHT MARGIN, 
LOG_UNIT; 


FMP = .FP; 


jolelelelele) +S s) ~_ 
ARAWlODe ae 


1+ 
Get the LUB for the channel. Signal if the channel number is invalid. 


LOG_UNIT = 
BEGIN 


& 


IF (.CHAN GTR 0) 
THEN 


. CHAN 
ELSE 


IF (.CHAN EQL 0) 
THEN 
5 LUBSK_LUN_BPRI 


BEGIN 
BASSSSTOP (BASSK_ILLI0_CHA); 


PWN 0 OCONOUES UN | O OONOUESWN SO VONOUSWN—"OVOOn 
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0 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

2 

2 

2 

2 

2 0 END 

2 0 

2 0 END; 

2 0 BAS$$CB_PUSH (.LOG_UNIT, LUBSK_LUN_BPRI); 

2 9 ,, 008 CISBSA_USER_FPI = .FMP CSFSL_SAVE_FPI; 

5 ! If the channel is zero and not open, open it. 

3 0 

3 0 IF (. CHAN EQL 0) 

3 06 THEN 

H be BEGIN 

; be IF ( NOT .CCB CLUBSV_OPENED]) THEN BASSSOPEN_ZERO (.FMP CSFSL_SAVE_FP]); 
3 06 END; 

4 06 

4 06 '¢ 

: vs If the channel is not now open, we have an error. 

4 07 

£2 4 IF ( NOT .CCB CLUBSV_OPENED]) THEN BASS$STOP_IO (BASS$K_IO_CHANOT); 
47 07 '¢ 

48 07 ! If this is anything but a terminal format file, the MARGIN state- 
49 07 ! ment is unreasonable. 

Tine ie 1 

25 4 IF (.CCB CLUBSB8_ORGAN] NEQ LUBSK_ORG_TERMI) THEN BASS$SSTOP_IO (BASSK_ILLOPE); 
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14-Sep-1984 BASR 
14 
} Fetch the current margin, so we can return it. 


RIGHT_MARGIN = .CCB CLUBSW_R_MARGINI; 
i if a new margin is specified, change to it. If the new margin is 
: zero, change instead to the default margin. 
IF (ACTUALCOUNT () GEQ 2) 
THEN 
BEGIN 
CCB CLUBSW_R_MARGIN] = 
BEGIN 


IF (.NEW MARGIN EQL 0) THEN .CCB CLUBSW_D_MARGIN] ELSE .NEW_MARGIN 
ai END; 
iqf the margin is larger than the buffer, and this is channel 0 
' (which means the user has no control over the size of the buffer 


! since he cannot open channel 0 himself), increase the buffer 
size to match the new margin. 


IF ((.CCB CLUBS$W_R_MARGIN] GTR .CCB CLUBSW_RBUF_SIZEJ) AND .CCB CLUBSV_UNIT_0O] AND ( NOT .CCB C 
on LUBS$V_USER_RBUF J) ) 


BEGIN 
LOCAL 


OLD_SIZE, 
NEW_SIZE; 


'¢ 

! We must be sure that an AST does not fool with the buffer as we 
are reallocating it. 

:. AST_STATUS = SSETAST (ENBFLG = 0); 

Allocate a new buffer. 


NEW_SIZE = MAX (.CCB CLUBS$W_RBUF SIZE], .CCB CLUBS$W_D_MARGIN], .CCB CLUBSW_R_MARGIN]); 
GET_VM_STATUS = LIBSGET_VM TNEW_SIZE, NEW_BUFFER); 


IF ( NOT .GET_VM_STATUS) THEN BASSSSTOP_IO (BASSK_MAXMEMEXC); 
'¢ 
: Remember the old buffer address and length for Later. 


OLD_BUFFER = -6CB CLUBSA_UBF); 
OLD“SIZE = .CCB CLUBSW_RBUF_SIZE); 


—afh 


| 
| 
| 
' 
| 


'¢ 
Copy the data from the old buffer to the new. 


% CHSCOPY (.OLD_SIZE, .OLD_BUFFER, 0, .NEW_SIZE, .NEW.BUFFER); 
Now that the CCB is updated, we can turn ASts back on. 


F 14 
BASSMARGIN 16-Sep-1984 00:42:55 AX-11 Bliss-32 V4.0-74 Pa 8 
eens 1a-Sep-19 4 90:38:72 EBASRTL SRC IBASMARGIN.B 2;1 ” (3) 
11 '4 
1 Point the LUB to the new buffer. 
14 ; CCB CLUBSA_UBF] = .NEW_BUFFER; 
15 CCB CLUBSWIRBUF_SIZE] = .NEW_SIZE; 
1g a CCB CRABSW_USZJ"= .NEW_SIZE; 
Now relocate all of the LUB fields that point into the buffer. 
20 : CCB CLUBSA_RBUF_ADR] = .CCB CLUBSA_RBUF_ADR] = .OLD BUFFER + .NEW BUFFER: 
21 CCB CLUBSA_BUF_PTR) = .CCB CLUBSA_BUF_PTR] - .OLD_BOFFER + .NEW_BOFFER; 
$8 CCB CLUB$A_BUF_END) = .CCB BSA_BUF_END] = .OLD_BUFFER + .NEW_BUFFER; 
CCB CLUBSA_BUF-BEG) = .CCB CLUBSA-BUF-BEGJ - . BUFFER + .NEW BUFFER: 
24 CCB CLUBSA_BUF-HIGH] = ,CCB CLUBSA_BUF_HIGH] - .OCD_BUFFER + .NEW_BUFFER; 
33 CCB CRABSL-UBFJ = .CCB CRABSL_UBFJ~- .OLD_BUFFER + [NEW_BUFFER; 
e7 
28 
29 
30 
31 
34 


IF (.AST_STATUS EQL SSS$_WASSET) THEN SSETAST (ENBFLG = 1); 


‘4 
} Free the old buffer. 


FREE_VM_STATUS = LIBSFREE_VM (OLD_SIZE, OLD_BUFFER); 
IF ( NOT .FREE_VM_STATUS) THEN LIBSSTOP (OTSS$_FATINTERR); 
END; 
'¢ 
' Since we now have a right margin, make sure the NOMARGIN bit 
is clear. 
CCB CLUBSV_NOMARGIN] = 0; 
END; 
'¢ 
We are done with register CCB. 
BASS$SCB_POP (); 
Return the previous (or unchanged) right margin. 
"RETURN (.RIGHT_MARGIN); 
END; 
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end of BASSMARGIN 


P, LIBSFREE VM 
VM, BAS$SSCB_PUSH 
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OBFC 00000 
9 000000006 00 9E 
$8 Gooooooas 90 $e Bon0s 
§ w ¢ pet 
5 5D DO 0001 
54 04 Ag 00 Bata 
05 15 QOOIA 
52 94 00 Boot 
14 11 QOO1F 
05 12 00021 
52 08 CE 00023 
OD 11 00026 
7E 006 8F 9A 00028 
000000006 00 2 FB 000 ¢ 
‘ D4 000 
50 08 CE 00035 
000000006 00 16 00038 
FF4C = OC AS DO 0003E 
54 D5 00044 
OE iF 00046 
FC 7 E8 00048 
OC AS DD 0004C 
000000006 00 01 FB O004F 
07 FC AB ge 00056 
7E 00G 8F 9A Q005A 
68 01 FB Q005E 
04 C4 AB 91 00061 
07 13 00065 
7E 00G 8F 9A 00067 
68 01 FB 00068 
57 D4 = AB 3 006 
02 6c 1 0007 
i] 1 0007 
OOEF 3 it 
08 Ac 03 7A 
06 12 00970 
50 D6 «=6AB «3C 0007F 
04 11 000 Hy 
50 08 Ac +4 
D4 =AB 50 80 00089 
D2 AB D6 A } 0 
0 A 9 
OOCE +} 94 
FE OA 5 97 
FB 1 9A 
FF «6AB OQ 45 
19 Q009F 
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‘s os ot 
BASS$K_MAXMEMEXC 
Tati oe SYSSSETAST 


‘ssaiak niet 
_— Save R2,R3,R4,R5,R6,R7,R8B,R9,= 


SYSSSETAST, R9 
ASSSSTOP_ fo, R8 


#BAS$K_ILLIO_CHA, 
#1, BASS$STO 


or = (SP) 


M cy save ty = 


9 
(3) 


0966 


1106 
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Routine Base: 


000000006 00 


wT 
™N 


371 bytes, 


AE 
1187 1 


3 Routine Size: 


If channel 0 is not open, opens it. A 
BASS$SCB_PUSH will signal if the channel number is invalid. 


BEGIN 
BUILTIN 
FP; 


14 
BASSMARGIN 1b-5e -1984 00:42:55 AX-11 Bliss-32 V4.0-74 
ity ae 1 90:4 214 EBASRTL SRE BASMARG GN B92:1 
Hs GLOBAL ROUTINE BASSNOMARGIN ( ! Disable right margin 
HAN ! Channel whose margin to disable 

3 ) : NOVALUE = 
36 Vee 
37 FUNCTIONAL DESCRIPTION: 
95 } Disable the right margin feature of a channel. 
3 FORMAL PARAMETERS: 
+4 CHAN. rl.v The channel whose margin to disable. 
1 IMPLICIT INPUTS: 
0$ 1 i NONE 
04 ! 
B2 IMPLICIT OUTPUTS: 

7? i LUBSV_NOMARGIN Set to 1. This causes the formatting 

8 ' routines to not enforce any right 

H margin. 

1 i ROUTINE VALUE: 

§ COMPLETION CODES: 

4 : NONE 

6 ! SIDE EFFECTS: 

8 ‘ 

9 4 

0 ! 

1 ' 

4 


GLOBAL REGISTER 
CCB = K_CCB_REG : REF BLOCK C, BYTE); 


LOCAL 
FMP : REF BLOCK C, BYTE), 
LOG_UNIT; 
FMP = .FP; 
'¢ 
: Get the LUB for the channel. Signal if the channel number is invalid. 


LOG_UNIT = 
BEGIN 


IF (.CHAN GTR 0) 
THEN 
. CHAN 
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BASSMARGIN 16-Sep-1984 42:55 AX-11 Bliss-32 V4.0-74 
8018 14- ep-19 4 9 38:72 YBASRTL SRE BASMARGIN.B32;1 

420 45 ELSE 

421 <3 

4 ¢ 4 IF (. CHAN EQL 0) 

4 48 TH 

4 4 43 LUBSK_LUN_BPRI 

4 § 1 BEGIN 

4 i : ASS$SSTOP (BASS$K_ILLIO_CHA); 

429 4 END 

430 55 

¢ ! 3§ pasésce PUSH (.LOG_UNIT, LUBSK_LUN BPRI) 

i 38 , 068 CISBSA_USER_FPJ = .FMP CSFSL_SAVE_FP); 

$32 oo it the channel is zero and not open, open it. 

rh 14 $6 

4 : 6 IF (.CHAN EQL 0) 

43 64 THEN 

ree | o BEGIN 

rr : IF ( NOT .CCB CLUBSV_OPENED]) THEN BASSSOPEN_ZERO (.FMP CSFSL_SAVE_FPJ); 

444 6 END; 

445 7? 


te 
: If the channel is not now open, we have an error. 


IF ( NOT .CCB CLUBSV_OPENED]) THEN BASS$$STOP_IO (BAS$K_IO_CHANOT); 
‘+ 
: If this is anything but a terminal format file, the NOMARGIN statement is unreasonable. 


IF (.CCB CLUBSB_ORGAN) NEQ LUBSK_ORG_TERMI) THEN BASS$$STOP_IO (BASSK_ILLOPE); 


'¢ 
Set the NOMARGIN bit, so the margin will not be enforced. 


|, 0CB CLUBSV_NOMARGIN = 1; 


i Set the margin cell to 0, so the margin function will 
: return a zero. 


: CCB CLUBSW_R_MARGIN] = 0; 
Pop the channel information. 
"  BASS$CB_POP (); 
RETURN; 
END; ! end of BASSNOMARGIN 
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Routine Size: 


Name 
_BASSCODE 


114 bytes, 


1 
1E 
1 
OF 


ND 
LUDOM 


000000006 


FF4C 


s 


00000006 


Al 


Routine Base: 


Bytes 
485 NOVEC,NOWRT, 


23 000000006 
4 


04 
52 
52 
? 006 
06 
50 
000000006 
CB 0¢ 
15 FC 
OC 
00 
07 FC 
7E 006 
65 
04 C4 
? 006 
i 8) 
D4 
000000006 
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-BASSCODE + 0173 


Kk 14 
1ersep-1986 1:88:44 


Ssess 
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AX-11 gt bed mes 
BASRTL.SRC JBASMARGIN.B52;1 


BASSNOMARGIN, Save R2,R3,R4,R5,R11 
pag + a R5 


CHAN, R4 
Rs, LOG_UNIT 


$ 
8, LOG_UNIT 


#BASSK_ILLIO_CHA, -(SP) 
#1, BASSS$STOP 

LOG_UNIT 

#8,7R 

BAS$SCB_PUSH 

12CFMP) ; -180(CCB) 


4$ 

-4(CCB), 5$ 

12( FMP) 

#1, BASSSOPEN_ZERO 
-4{CCB), 5$ 


WBAS$K_{0 CHANOT, -(SP) 
#1, BASSSST 
-66(CCB), # 


WBASSK_ILLOPE, -(SP) 
#1, BASSS$STOP_10 
#2. -95(CCB) 


OP_10 
4 


-44 (CCB) 
BAS$$CB_POP 


module BASSMARGIN 


REL, CON, PIC,ALIGN(2) 


ay 


PASSRARGIN H$-Rep-1986 90:42:55 yAN=11 BLisg=SZ y4.0n74g, Page 14 


; ecocceece Symbols ----<--- Pages Processing 
: File Total Loaded Percent Mapped Time 
: _$255$DUA28:CSYSLIBISTARLET.L32;1 9776 ? 0 581 00:01.2 


COMMAND QUALIFIERS | 
BLISS/CHECK= (FIELD, INITIAL OPTIMIZE) /NOTRACE /LIS=L1S$:BASMARGIN/OBJ=OBJ$:BASMARGIN MSRCS:BASMARGIN/UPDATE=(ENHS:BASMARGIN 


; Size: 485 code + 0 data bytes 


; Elapsed Time: 00:35. 
; Lines/CPU Min: 4971 

; Lexemes/CPU-Min: 32044 

; rem | Used: 192 pages 

; Compilation Complete 
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